www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/admin/feilei_list.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<%
'导航条
Set rs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * From feilei"
rs.open StrSql,Conn,1,1
%>
<%
page=Request("page")
if page=0 or page="" then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/10
pageCount=int(pageCount)
if (RecordCount mod 10)>0 then
PageCount=PageCount +1
end if
%>
<html>
<head>
<title>YuLinW.Com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form name="Form1" method="post" action="?page=<%=page%>">
<tr>
<td height="30" width="1"> </td>
<td width="232" height="20">共有信息<font color="#FF0000"><%=RecordCount%></font>条，共 <font color="#FF0000"><%=pageCount%></font> 页，第 <font color="#FF0000"><%=page%></font> 页 </td>
<td width="80"><% if page=1 then %>最前一页 <% else %><a href="?Dht_Flag=<%=Dht_Flag%>">最前一页</a><% end if %></td>
<td width="80"><%if page=1 then%>前一页<%else%><a href="?page=<%=page-1%>">前一页</a><%end if%></td>
<td width="80"><%if pagecount-page=0 Or Rs.recordCount=0 then%>下一页<%else%><a href="?page=<%=page+1%>">下一页</a><%end if%></td>
<td width="80"><%if pagecount-page=0 Or Rs.recordCount=0 then%>最后一页<%else%><a href="?page=<%=pagecount%>">最后一页</a><%end if%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="75" valign="top">
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="7">
<table width="100%" border="1" cellspacing="0" cellpadding="4" bordercolordark="#FFFFFF" bordercolorlight="#5D7488">
<tr bgcolor="ABBCCB" align="center">
<td height="23" width="5%">ID</td>
<td height="23" width="10%">所在分类</td>
<td height="23" width="25%">分类名称</td>
<td height="23">类别注释</td>
<td height="23" width="10%">编 辑</td>
</tr>
<%
do while pos<(page-1)*10
pos=pos+1
rs.MoveNext
loop
i=1
x=0
do while x<10 and not rs.eof
%>
<tr <%If i/2=Cint(i/2) Then response.write "bgcolor=#EFF3F6" Else Response.write "bgcolor=#FFFFFF" End If %> >
<td height="21" align="center"><%=Rs("classid")%></td>
<td height="21" align="center"><%=Rs("topclass")%></td>
<td height="21" align="center"><%=Rs("classname")%> <%if Rs("show")=1 then response.write "<font color=#FF0000>[首]</font>"%> <%if Rs("ku")=1 then response.write "<font color=#0000FF>[酷]</font>"%></td>
<td height="21"><%=Rs("memo")%> </td>
<td height="21" align="center"> <a href="feilei_change.asp?id=<%=rs("classid")%>&Page=<%=Page%>">修改</a>
</td>
</tr>
<%
i=i+1
x=x+1
Rs.MoveNext
loop
rs.close
set rs=nothing
%>
</table>
</td></tr>
<tr>
<td height="15"> 页码：
<%y=1%>
<%do while y<pagecount+1%>
<a href="?page=<%=y%>&StrFind=<%=StrFind%>">[<%=y%>]</a>
<%
y=y+1
loop
%>
</td></tr>
<tr>
<td height="8"> </td>
</tr>
</table>
</td></tr>
</table>
</td></tr>
<tr>
<td height="10" colspan="2"></td></tr>
<tr>
<td bgcolor="ADAEAD" height="1" colspan="2"></td></tr>
<tr>
<td height="25" colspan="2"> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</body>
</html>
<%
FreeConn()
%>